home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.lbr / CLEARSCR.PQS / clearscr.pas
Pascal/Delphi Source File  |  1985-03-24  |  1KB  |  28 lines
  1. (*----------------------------------------------------------------------*)
  2. (*           Clear_Screen  -- Clears screen and homes cursor            *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Clear_Screen;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*   Procedure:   Clear_Screen                                          *)
  10. (*                                                                      *)
  11. (*   Purpose:     Clears screen and homes cursor.                       *)
  12. (*                                                                      *)
  13. (*   Calling sequence:                                                  *)
  14. (*                                                                      *)
  15. (*      Clear_Screen;                                                   *)
  16. (*                                                                      *)
  17. (*   Calls:  Window                                                     *)
  18. (*           ClrScr                                                     *)
  19. (*                                                                      *)
  20. (*----------------------------------------------------------------------*)
  21.  
  22. BEGIN  (* Clear_Screen *)
  23.  
  24.    Window( 1, 1, 80, 25 );
  25.    ClrScr;
  26.  
  27. END    (* Clear_Screen *);
  28.